Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 645,582.7 7.03 363,751.7 1,290,035 14.04 759,055.8 644,452.36 99.8
lp://DOT/LCDOT 3,989,965.8 4,044.85 1,180,125.8 3,968,424 4,040.92 1,193,940.6 21,541.91 3.3
lp://AUSD/LCDOT 2,296,002.6 4,036.32 1,127,424.4 2,287,558 4,021.28 1,228,385.5 8,444.90 1.3
lp://ACA/AUSD 1,874,005.9 12,178.17 1,525,395.6 1,878,971 12,198.85 1,624,116.7 4,964.76 0.8

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,592,684.20 -771.22 -3,372.36 NA NA NA NA NA
lp://KINT/KUSD -1,286,774.10 -1,027.38 -6,743.81 NA NA NA NA NA
lp://PHA/KUSD -1,055,529.84 -10.29 -1,906.19 NA NA NA NA NA
lp://KUSD/KINT 1,264,562.45 -1,352.54 -6,397.80 18,838.14 1,911.76 11,205.87 1,245,724.31 NA
lp://KUSD/PHA 1,050,615.39 -80.08 -2,697.81 14,791.26 31.05 15,575.06 1,035,824.13 NA
lp://KUSD/KBTC 1,507,737.95 -1,074.56 -6,122.68 503,915.69 24,415.50 105,481.15 1,003,822.26 NA
lp://TAI/taiKSM 0.00 0.00 0.00 4,370.08 20.76 719.41 4,370.08 NA
lp://KAR/KUSD 650,031.79 27,203.95 302,278.51 651,758.92 138,433.17 609,745.31 1,727.12 NA
lp://KAR/KSM 1,063,500.30 41,393.89 458,262.50 1,064,908.58 42,876.52 489,130.41 1,408.28 NA
lp://KUSD/LKSM 407,984.37 0.00 184,324.92 408,912.87 1.47 371,454.36 928.50 NA
lp://KSM/LKSM 106,032.65 2,802.47 30,777.96 106,731.48 2,803.89 34,161.57 698.83 NA
lp://KAR/LKSM 490,690.83 8,492.30 102,532.89 490,075.45 122,896.75 665,940.15 615.39 NA
lp://KUSD/QTZ 26,125.69 496.42 6,602.31 26,507.07 515.75 9,137.27 381.38 NA
lp://KUSD/ARIS2 157,883.69 5,137.27 61,996.61 158,124.49 11,792.10 126,604.78 240.80 NA
lp://KUSD/KSM 581,460.05 638.61 587,902.24 581,691.15 639.18 633,741.46 231.10 NA
lp://KUSD/BNC 58,851.94 12,276.57 22,446.49 58,671.06 12,277.61 23,360.03 180.88 NA
lp://KSM/ARIS 83.33 7.50 74.86 166.97 16.41 154.51 83.63 NA
lp://KUSD/RMRK 11,215.80 2,972.67 22,537.35 11,174.89 2,972.70 22,546.23 40.91 NA
lp://KAR/QTZ 25,708.13 242.57 4,893.25 25,741.79 458.72 9,040.02 33.66 NA
lp://KSM/RMRK 6,392.66 553.16 8,593.59 6,397.76 553.64 8,600.84 5.09 NA
lp://KUSD/CSM 34,545.53 2.23 40,931.96 34,549.98 2.23 41,511.38 4.45 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```